home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / misc / TCS.lha / TCS / examples / includes / macros.i < prev    next >
Text File  |  2000-04-13  |  1KB  |  39 lines
  1. *******************************************************************************
  2. * WTRSTLN 0.0.0
  3. *******************************************************************************
  4. * INFO    waits for a rasterline to be completely redrawn
  5. * IN    \1    rasterline number
  6. *******************************************************************************
  7.  
  8.     macro    WTRSTLN
  9.     movem.l    d0/a0,-(sp)
  10.     lea.l    $dff004,a0
  11. .wt0\@    move.l    (a0),d0
  12.     andi.l    #$1ff00,d0
  13.     cmpi.l    #\1<<8,d0
  14.     bne.s    .wt0\@
  15. .wt1\@    move.l    (a0),d0
  16.     andi.l    #$1ff00,d0
  17.     cmpi.l    #((\1<<8)+$100),d0
  18.     bne.s    .wt1\@
  19.     movem.l    (sp)+,d0/a0
  20.     endm
  21.  
  22.  
  23.  
  24. *******************************************************************************
  25. * WTLMB & WTRMB 0.0.0
  26. *******************************************************************************
  27. * INFO    waits for left/right mouse button to be pressed
  28. *******************************************************************************
  29.  
  30.     macro    WTLMB
  31. .wt\@    btst.b    #6,$bfe001
  32.     bne.s    .wt\@
  33.     endm
  34.  
  35.     macro    WTRMB
  36. .wt\@    btst.b    #2,$dff016
  37.     bne.s    .wt\@
  38.     endm
  39.